home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtnumber.bb2 < prev    next >
Text File  |  2002-01-27  |  498b  |  27 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"opal.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11. foo.l=GTNumber(0,1,20,20,150,15,"Normal",#PLACETEXT_RIGHT,69)
  12. NPrint Hex$(foo)
  13.  
  14. foo.l=GTNumber(0,2,20,60,150,15,"Borderless",#PLACETEXT_ABOVE|$8000,123)
  15. NPrint Hex$(foo)
  16.  
  17. AddIDCMP #NUMBERIDCMP
  18. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  19. DefaultOutput
  20. AttachGTList 0,0
  21. While ev.l<>#IDCMP_CLOSEWINDOW
  22.     ev.l=WaitEvent
  23. Wend
  24. DetachGTList 0
  25. End
  26.  
  27.